Attribute VB_Name = "showUserForms"
'WRITTEN BY JALISA GREENE
'LAST MODIFIED BY JALISA GREENE
'LAST UPDATED 6/10/2014


Sub BeginImplementation()
'**WHEN BUTTON PRESSED, SHOW IMPLEMENTATION USER FORM**'
    frmImplementations2.Show
End Sub

Sub BeginASR()
'**WHEN BUTTON PRESSED, BEGIN GENERATING THE ASR OUTPUT FILE**'

    frmINV.Show
End Sub

Sub GenComments()
'**WHEN BUTTON PRESSED, SHOW EXTERNAL COMMENTS / NEXT ACTION STEPS USER FORM**'
'**HIDE NEXT INTERNAL COMMENTS TAB ON THE FORM (SEPARATE BUTTON FOR THAT)**'


    frmComments.MultiPage1.Pages(0).Visible = False
    frmComments.MultiPage1.Pages(1).Visible = True
    frmComments.MultiPage1.Pages(2).Visible = True
    frmComments.Show
End Sub

Sub RateReductions()
'**WHEN BUTTON PRESSED, SHOW RATE REDUCTIONS USER FORM**'

    frmRateReductions.Show
End Sub

Sub VendorChng()
'**WHEN BUTTON PRESSED, SHOW VENDOR CHANGE USER FORM**'

frmVendorSwitch.Show
End Sub

Sub BillingCorr()
'**WHEN BUTTON PRESSED, SHOW BILLING CORRECTION USER FORM**'

    frmBillingCorr.Show
End Sub

Sub InsertViewContracts()
'**WHEN BUTTON PRESSED, SHOW CONTRACTS USER FORM**'

    frmContracts.Show
End Sub

Sub BeginValidation()
'**WHEN BUTTON PRESSED, SHOW VALIDATIONS USER FORM**'

    frmValidations.Show
End Sub

Sub ServiceStand()
'**WHEN BUTTON PRESSED, SHOW SERVICE STANDARDIZATION USER FORM**'

    frmServiceStand.Show
End Sub

Sub Acceptance()
'**WHEN BUTTON PRESSED, SHOW ACCEPTED/REJECTED SAVINGS USER FORM**'

    frmAcceptance.Show
End Sub

Sub ChangeLog()
'**WHEN BUTTON PRESSED, SHOW INTERNAL COMMENTS/ CHANGE LOG USER FORM**'
'**HIDE EXTERNAL COMMENTS/NEXT ACTION STEPS TABS (SEPARATE BUTTON)**'


    frmComments.MultiPage1.Pages(0).Visible = True
    frmComments.MultiPage1.Pages(1).Visible = False
    frmComments.MultiPage1.Pages(2).Visible = False
    frmComments.Show
End Sub

Sub UHASR()
'**MACRO ONLY RAN BY MANAGEMENT TO UNHIDE THE ASR, CONTRACT DATA, AND SAVINGS REPORT DATA TABS.**'
'**CHANGES TO THESE TABS BY UNAUTHORIZED PERSONNEL IS EXTREMELY FROWNED UPON**'

    inputStr = InputBox("Please Enter Password", "Unhide the ASR")
    If inputStr = "jmarie123" Then  '**PASSWORD**'
        Worksheets("ASR").Visible = True
        Worksheets("SR Data").Visible = True
        Worksheets("Contract Data").Visible = True
    Else:
        Exit Sub
    End If
End Sub
